#!/usr/bin/perl -w
use strict;
use Getopt::Long;

#88888888888888888888888888888888888888888888888888888888888888888888888888888888

#	Usage

#88888888888888888888888888888888888888888888888888888888888888888888888888888888

system("tree_to_short_names -v -H -N names.map < test.nh > short.nh");
system("short_to_long_names.pl -N names.map -v  short.nh > long.nh");
my @diff = `diff long.nh test.nh`;
if (@diff != 0)
{
	print STDERR "FAILED\n";
}
else
{
	print STDERR "ROUND TRIP SUCCESS!!!\n";
}

unlink("long.nh") or die;
unlink("names.map") or die;
unlink("short.nh") or die;
